home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 49 / 049.d81 / european siren (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  498b  |  18 lines
  1. 5 poke53280,.:poke53281,.
  2. 10 print"[147]         [154]press h [154]to hear the siren"
  3. 20 print"         press q [154]to quit"
  4. 30 a=peek(203):ifa=29then100
  5. 40 ifa<>62then30
  6. 50 print"[147][144]load"chr$(34)"tips and tricks"chr$(34)",8"
  7. 60 print"run":poke631,13:poke632,13:poke198,2:end
  8. 100 rem european siren - michael gatto
  9. 110 n=5  :rem number of siren blasts
  10. 120 s=54272:v=s+24:ad=s+5:sr=s+6:w=s+4
  11. 130 poke v,15:poke ad,0:poke sr,240:poke w,33
  12. 140 for j=1 to n
  13. 150 poke s,52:poke s+1,43:for d=1 to 300:next
  14. 160 poke s,75:poke s+1,34:for d=1 to 300:next
  15. 170 next j
  16. 180 poke w,32:poke v,0
  17. 190 run
  18.